library(base)
library(raster)
library(gstat)

inputPath= "C:/Users/forever/Desktop/PMProd"
fileArray = list.files(path = inputPath,pattern="DongBangSongHong.tif$",full.names = TRUE,recursive=TRUE)
totalFile = length(fileArray)

newFileArray = fileArray
filename = substr(fileArray,44,83)
newFileArray

for(i in 1:3){
	file.rename(fileArray[i],paste(filename[i],"_DongBangSongHong.tif",sep=""))
}
